VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.UserControl uctCartolina 
   ClientHeight    =   795
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9885
   ScaleHeight     =   795
   ScaleWidth      =   9885
   Begin VB.TextBox txtLuogo 
      Height          =   285
      Left            =   6600
      TabIndex        =   13
      Text            =   "Text5"
      Top             =   360
      Width           =   3255
   End
   Begin VB.TextBox txtPubblicazione 
      Height          =   285
      Left            =   8880
      TabIndex        =   12
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.TextBox txtEditore 
      Height          =   285
      Left            =   6600
      TabIndex        =   11
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.TextBox txtNumero 
      Height          =   285
      Left            =   5640
      TabIndex        =   10
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.TextBox txtValoreCondizione 
      Height          =   285
      Left            =   720
      TabIndex        =   9
      Text            =   "Text5"
      Top             =   0
      Width           =   375
   End
   Begin VB.TextBox txtValorePrezzo 
      Height          =   285
      Left            =   360
      TabIndex        =   8
      Text            =   "Text5"
      Top             =   0
      Width           =   375
   End
   Begin VB.TextBox txtFasciaPrezzo 
      Height          =   285
      Left            =   0
      TabIndex        =   7
      Text            =   "Text5"
      Top             =   0
      Width           =   375
   End
   Begin VB.TextBox txtSpedizione 
      Height          =   285
      Left            =   7920
      TabIndex        =   6
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.CheckBox chkViaggiata 
      Caption         =   "Check1"
      Height          =   315
      Left            =   7680
      TabIndex        =   5
      Top             =   0
      Width           =   255
   End
   Begin VB.TextBox txtProvincia 
      Height          =   285
      Left            =   4320
      TabIndex        =   4
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.TextBox txtNazione 
      Height          =   285
      Left            =   3360
      TabIndex        =   3
      Text            =   "Text5"
      Top             =   0
      Width           =   975
   End
   Begin VB.TextBox txtAcquisto 
      Height          =   285
      Left            =   5280
      TabIndex        =   2
      Text            =   "Text5"
      Top             =   0
      Width           =   375
   End
   Begin VB.TextBox txtStato 
      Height          =   285
      Left            =   2160
      TabIndex        =   1
      Text            =   "Text5"
      Top             =   0
      Width           =   1215
   End
   Begin VB.TextBox txtDescrizioneCondizione 
      Height          =   285
      Left            =   1080
      TabIndex        =   0
      Text            =   "Text5"
      Top             =   0
      Width           =   1095
   End
   Begin MSForms.ComboBox cmbTematica 
      Height          =   255
      Left            =   2280
      TabIndex        =   15
      Top             =   360
      Width           =   4215
      VariousPropertyBits=   746604571
      DisplayStyle    =   3
      Size            =   "7435;450"
      MatchEntry      =   1
      ShowDropButtonWhen=   2
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
   End
   Begin MSForms.ComboBox cmbDifetto 
      Height          =   255
      Left            =   0
      TabIndex        =   14
      Top             =   360
      Width           =   2175
      VariousPropertyBits=   746604571
      DisplayStyle    =   3
      Size            =   "3836;450"
      MatchEntry      =   1
      ShowDropButtonWhen=   2
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
   End
End
Attribute VB_Name = "uctCartolina"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Property Get fasciaprezzo() As String
Attribute fasciaprezzo.VB_MemberFlags = "14"
    FasciPrezzo = txtFasciaPrezzo.Text
End Property
Public Property Let fasciaprezzo(ByVal NuovoValore As String)
    txtFasciaPrezzo.Text = NuovoValore
End Property
Private Sub txtfasciaprezzo_change()
    PropertyChanged "fasciaprezzo"
End Sub

Public Property Get valoreprezzo() As String
Attribute valoreprezzo.VB_MemberFlags = "14"
    valoreprezzo = txtValorePrezzo.Text
End Property
Public Property Let valoreprezzo(ByVal NuovoValore As String)
    txtValorePrezzo.Text = NuovoValore
End Property
Private Sub txtvaloreprezzo_change()
    PropertyChanged "valoreprezzo"
End Sub

